home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 November & December / Amiga-CD 1997 #11-12.iso / aminet / worlddata / steuerung < prev    next >
AmigaDOS Script File  |  1978-01-04  |  2KB  |  87 lines
  1. .key param
  2. .bra [
  3. .ket ]
  4. . Skript für Verwaltungsaufgaben
  5. . © MagnaMedia Verlag AG, AMIGA-Magazin
  6. failat >nil: 21
  7. if "[param]" EQ "info"
  8.     set vinfo 1
  9. endif
  10. if "[param]" EQ "copy"
  11.     set vcopy 1
  12. endif
  13. if "[param]" EQ "start"
  14.     set vassign 1
  15.     set vstart 1
  16.     set vunassign 1
  17. endif
  18. set binfo        1
  19. set bcopy        1
  20. set bstart       1
  21.  
  22.     echo >t:tmpsteuerung ":c/requestchoice20 >env:AmigaCD/req20erg *"Steuerung*" *"Bitte wählen Sie*"" NOLINE
  23.     set nummer 0
  24.     if $binfo EQ 1
  25.          echo >>t:tmpsteuerung " Info" NOLINE
  26.          set nummer `eval $nummer + 1`
  27.          set ninfo $nummer
  28.     endif
  29.     if $bcopy EQ 1
  30.          echo >>t:tmpsteuerung " Kopieren" NOLINE
  31.          set nummer `eval $nummer + 1`
  32.          set ncopy $nummer
  33.     endif
  34.     if $bstart EQ 1
  35.          echo >>t:tmpsteuerung " Start" NOLINE
  36.          set nummer `eval $nummer + 1`
  37.          set nstart $nummer
  38.     endif
  39.     if "[param]" EQ ""
  40.         echo >>t:tmpsteuerung " Ende" NOLINE
  41.         execute >nil: t:tmpsteuerung
  42.         delete >nil: t:tmpsteuerung
  43.         set reqerg[$$] `getenv env:AmigaCD/req20erg`
  44.         if $reqerg[$$] EQ 0
  45.             skip Ende
  46.         endif
  47.     endif
  48.     if $reqerg[$$] EQ $ninfo
  49.         set vinfo 1
  50.     endif
  51.     if $reqerg[$$] EQ $ncopy
  52.         set vcopy 1
  53.     endif
  54.     if $reqerg[$$] EQ $nstart
  55.         set vassign 1
  56.         set vstart 1
  57.         set vunassign 1
  58.     endif
  59. endif
  60.  
  61. if $vinfo EQ 1
  62. ;>>>>>>>> Hier Infotext eintragen
  63.     :c/Metatool :Aminet/WorldDATA/WorldDATAd.doc FT=TEXT
  64. endif
  65. if $vstart EQ 1
  66. ;>>>>>>>> Hier steht das Startprogramm
  67.     :Aminet/WorldDATA/WorldDATA
  68. endif
  69. if $vcopy EQ 1
  70.     execute :c/Verzeichniskopieren ":Aminet/WorldDATA/" "WorldDATA" 246784
  71. endif
  72.  
  73. unset binfo
  74. unset vinfo
  75. unset ninfo
  76. unset bstart
  77. unset vstart
  78. unset nstart
  79. unset bcopy
  80. unset vcopy
  81. unset ncopy
  82. if "[param]" EQ ""
  83.     execute Steuerung
  84. endif
  85. LAB Ende
  86. unsetenv reqerg[$$]
  87.